home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / meltdown.lha / MISC.SOURCE / ParCop.bak < prev    next >
Encoding:
Text File  |  1988-07-19  |  3.3 KB  |  138 lines
  1. *****************************************************************************
  2. *                                                                           *
  3. *                             Parralax Copper Bars                *
  4. *                                                                           *
  5. *  Start Date : 25/3/91                                                     *
  6. * Last Update : 25/3/91                                                     *
  7. *                                  Code : Melt Down *
  8. *                                                                           *
  9. *****************************************************************************
  10.  
  11. ; Include the macros
  12.  
  13.     Incdir    Df1:
  14.     Include    Source/Macro
  15.  
  16. *****************************************************************************
  17.  
  18. ; Dont forget to use chip ram
  19.  
  20.     Chip
  21.     
  22. *****************************************************************************
  23.  
  24. ; Kill the operating system for good mesure
  25.  
  26.     Kill        
  27.     
  28. *****************************************************************************
  29.  
  30. ; Load custom and set up copper list
  31.  
  32.     Lea    Custom,A5
  33.     Move.l    #Copper,Cop1lch(a5)
  34.     
  35. *****************************************************************************
  36.  
  37.     Lea    $70000,A1
  38.     Move.l    #120/4,d7
  39. ShagA
  40.     Clr.l    (a1)+
  41.     Dbf    D7,Shaga
  42.  
  43. *****************************************************************************
  44.  
  45.     Move.l    #Bob,Bltapth(a5)
  46.     Move.l    #$70000+40,Bltdpth(a5)
  47.     Move.w    #40,Bltdmod(a5)
  48.     Move.w    #0,Bltamod(a5)
  49.     Move.l    #-1,Bltafwm(a5)
  50.     Move.l    #$09f00000,Bltcon0(a5)
  51.     Move.w    #3*64+1,Bltsize(a5)
  52.  
  53. *****************************************************************************
  54.  
  55. ; Main routine here
  56.  
  57. Mouse
  58.     Pos                    ; Get in sync with vbi
  59.     Bsr    DoPar1
  60.     Tstmice    Mouse                ; Pressed the mouse
  61.     
  62. *****************************************************************************
  63.  
  64. ; Return operating system and go back to user
  65.  
  66.     Heal
  67.     Clr.l    D0                ; No error
  68.     Rts
  69.     
  70. *****************************************************************************
  71.  
  72. DoPar1
  73.     Tst.w    Scroll1
  74.     Bne.s    Scrollon1
  75.     Move.w    #16,Scroll1
  76.     Move.l    #Bob,Bltapth(a5)
  77.     Move.l    #$70000+40,Bltdpth(a5)
  78.     Move.w    #40,Bltdmod(a5)
  79.     Move.w    #0,Bltamod(a5)
  80.     Move.l    #-1,Bltafwm(a5)
  81.     Move.l    #$09f00000,Bltcon0(a5)
  82.     Move.w    #3*64+1,Bltsize(a5)
  83. Scrollon1
  84.     Move.l    #$70002,Bltapth(a5)
  85.     Move.l    #$70000,Bltdpth(a5)
  86.     Move.l    #$f9f00000,Bltcon0(a5)
  87.     Move.w    #0,Bltamod(a5)
  88.     Move.w    #0,Bltdmod(a5)
  89.     Move.l    #-1,Bltafwm(a5)
  90.     Move.w    #3*64+21,Bltsize(a5)
  91.     Sub.w    #1,Scroll1
  92.     Rts
  93.  
  94. *****************************************************************************
  95.  
  96. ; All copper list after here
  97.  
  98. Copper
  99.  
  100.     Spr_Off                    ; Switch sprites off
  101.     Cmove    $2871,Diwstrt
  102.     Cmove    $2cc1,Diwstop
  103.     Cmove    $0038,Ddfstrt
  104.     Cmove    $00d0,Ddfstop
  105.     Cmove    -40,Bpl1mod            
  106.     Cmove    -40,Bpl2mod            
  107.     Cmove    $0000,Color00
  108.     Cmove    $0222,Color01
  109.     Cmove    $0444,Color02
  110.     Cmove    $0666,Color03
  111.     Cmove    $0888,Color04
  112.     Cmove    $0aaa,Color05
  113.     Cmove    $0ccc,Color06
  114.     Cmove    $0fff,Color07
  115.     Cmove    $0007,Bpl1pth
  116.     Cmove    $0000,Bpl1ptl
  117.     Cmove    $0007,Bpl2pth
  118.     Cmove    $002a,Bpl2ptl
  119.     Cmove    $0007,Bpl3pth
  120.     Cmove    $0054,Bpl3ptl
  121.     Cmove    $3200,Bplcon0
  122.     Endcop
  123.  
  124. *****************************************************************************
  125.  
  126. Scroll1
  127.     Dc.w    0
  128.     
  129. *****************************************************************************
  130.  
  131. Bob
  132.     Dc.w    %1010101111010101
  133.     DC.w    %0110011111100110
  134.     Dc.w    %0001111111111000
  135.  
  136. *****************************************************************************
  137.  
  138.